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EDTSCHMUNDEL - undelete 


Ne a Te pate. 


Se 90:1 754 VAX-11 Bliss=32 et os Page 1 
4 12:22:49 DISKSVMSMASTER:CEDT.SRCJCHMUNDEL .BLI; (1) | 


4 ZTITLE “EDTSCHMUNDEL = undelete’ 
0 ¢ MODULE EDTSCHMUNDEL ( ! Undelete 
Bar gbEnt = *v04-000' ! File: CHMUNDEL.BLI Edit: JBS1004 
z | 

BR0? BEGIN 
0097 i eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeenereeeeeneeeeeneneeeeeteeneeeenetene 

'e w j 
000 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0010 's DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
0011 '® ALL RIGHTS RESERVED. 


e 
& 
© 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

'w ONLY IN ACCORDANCE THE TERMS OF UCH LICENSE AND WITH THE ® 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 7 

‘* TRANSFERRED, * 

-* w 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

'® CORPORATION. * 
® 

; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

© 
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++ 
FACILITY: EDT -- The DEC Standard Editor 
09 ! ABSTRACT: 
00 : This module performs the undeletion of text associated 
4 with the change mode commands UNDC, UNDW, and UNDL. 
0039 ENVIRONMENT: Runs at any access mode - AST reentrant 
0041 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
004 i MODIFIED BY: | 
44 0044 : 
45 0045 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 
46 0046 : extrect ing the routine UNDELETE from the module CHANGE.BLI. 
47 0047 ! 1-002 = Regularize headers. JBS 04-Mar-1981 
48 0048 ! 1-005 - Replace call to edt$$tst_eob. STS 22-Sep-1982 
r+ rd } 1-004 = Don't turn an undelete of an empty Line into a noop at E0B. JBS 01-Dec-1982 
51 0051 ; 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM'; 
FORWARD ROUTINE 
EDTSSUNDL; 


SSUND ! Insert the contents of an undelete buffer 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ’; 


| 
| 
| 
| 
| 
MACROS: | 
une | 
EQUATED SYMBOLS: | 
NONE | 

| 

| 


NONE 
EXTERNAL REFERENCES: 
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14 
EDTSCHMUNDEL EDTSCHMUNDEL = undelete 1S-Se “1984 00:13:54 VAX-11 Bliss-32 V4.0-74 Pa 3 EDT 
v04-000 EDTSSUNDL = undelete 12286871 38e 13:33:28 DISKSVMSMASTER:CEDT.SRC CHMUNDEL.BLI;1~ (3) v04 
; O63? ! ZSBTTL "EDTSSUNDL = undelete’ : 
>; 88 6 8 1 GLOBAL ROUTINE EDTSSUNDL ( ! Undelete ; 
cae 0659 1 BUF, ! Address of the appropriate undelete buffer ; 
>; 90 0660 1 LEN ! Length of that buffer ; 
; 661 1 d= ; 
; 35 662 1 ; 
>. . 665 1 +4 ; 
: 3c bere : FUNCTIONAL DESCRIPTION: : 
: a8 Re? } Insert the contents of an undelete buffer and move to whichever end. ; 
; oS peek : FORMAL PARAMETERS: : 
; 100 0670 1! BUF the address of the undelete buffer. Its first character is : 
; 14 302) ; the direction indicator. : 
; 198 0673 1! LEN the Length of the buffer. ; 
; 104 0674 1! : 
; 105 0675 1°! IMPLICIT INPUTS: . 
; 106 0676 1! : 
: 107 0677 1! NONE ; 
; 108 0678 1! . 
: 109 0679 1°! IMPLICIT OUTPUTS: ; 
: 110 0680 1! : 
ae bb 0681 1! NONE : 
; ie 0682 1! : 
, 3 0685 1 ! ROUTINE VALUE: : 
; (114 0684 1! . ; 
: 3 0685 1! 1 is returned if successful, 0 otherwise. : 
; #116 0686 1! . 
s Ti7 0687 1 ! SIDE EFFECTS: ‘ 
3; We 0688 1! ; 
: 119 0689 1! NONE ‘ 
: 120 0690 1! | : 
: et 0691 1 !-- : 
> 122 0692 1 : 
3 Yeo 069 BEGIN ; 
> 124 0694 : 
3 125 0695 EXTERNAL ROUTINE | : 
3 12 0696 EDTSSINS_CHS, ! Insert a string of characters which may include carriage returns | : 
: 6? 0697 EDTSS$CS_CEFT; ! Move left a character | ; 
: 128 0698 : 
3 94 5344 exten, : 
: 130 00 EDTSSA_WK_LN : REF LIN_BLOCK, : 
s 131 0701 EDT$$2_E0B_LN; 3 
: 13 070 3 
; 1 70 LOCAL : 
: «134 704 DIR, : 
: 135 705 RLEN : 
: 136 706 BUF _POINT; F 
3: 137 70 : 
; fs re RLEN = .LEN; : 
3; 139 709 '¢ ; : : 
; 140 710 ! Check for special case of entering an unnecessary carriage return : 
3 $3 Bats at the end of the buffer. ; 
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EDTSCHMUNDEL EDTSCHMUNDEL = undelete 16-Sep-1984 2:13:54 VAX-11 Bliss-32 V4.0-74 P 4. 
Oa 500 EDTSSUNDL = undelete 14- et} 7 99:33:26 DLEKSVMGHASTER-CEDT SRCSCHMUNDEL BLIG; 7 (3). 
5 143 713 | 
: 144 714 IF (C.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) AND ! 
> 145 715 (-RLEN GTR N i 
; 146 16 (CHSRCHAR (CHSPTR (.BUF, .RLEN)) EQL ASC_K_CR)) | 
: 148 71 RLEN = .RLEN - 1; 
; #149 p78 onthe - 
: 129 fi BUF POINT = CHSPTR (.BUF); 
; 138 07 : i Get the direction indicator. 
: 138 4 : DIR = CHSRCHAR_A (BUF _POINT); 
; 128 4 § IF (EDTSSINS_CHS (.BUF_POINT, .RLEN) EQL 0) THEN RETURN (0); 
; 138 7 g 2 ine the delet f d iti he beginni f th 
: ' e delete was a forward one, position to the beginning of the 
: 160 0730 § ! string we just inserted. ¥ . 
; 161 0731 !- 
3 166 Oras ¢ 
s 6 073 IF (.DIR NEQ DIR_BACKWARD) 
; 164 0734 2 THEN 
s 165 0735 2 
; 166 0736 2 DECR I FROM .RLEN - 1 T0 0 DO 
; 167 0737 2 EDTSSCS_LEFT (); 
3; 6168 0738 2 
: 169 0739 2 RETURN (1); 
; 170 0740 1 END; ! of routine EDTSUNDEL 


- IDENT 


-EXTRN EDTSSINS CHS, EDTSSCS LEFT 
: DTS$A_WR_LN, EDT$$Z_EOB_LN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


000c 00000 .ENTRY EDTSSUNDL, Save R2,R3 : 0658 
52 08 ac 00 00002 MOVL EN : 0708 
50 000000006 00 9E 00006 MOVAB EDT$$Z_E0B_LN, RO > 0714 
50 000000006 00 01 99000 CMPL  EDTS$A~WK_CN, RO : 
01 53 if ep ORE L REN wi : 0715 
09 15 $019 BLEG 3=s«1$ : 
0D 04 BC42 91 0018 CMPB  aBUFCRLEN], #13 : 0716 
08 if 020 BNEQ = '1$ : 
D7 00022 DECL RLEN : 0718 
50 04 AC DO 00024 18: MOVL BUF, BUF_POINT : 0720 
53 80 9A 00028 MOVZBL (BUF _POINT)+, DIR > 0724 
BB 00028 PUSHR #*M<RO,R2> : 0726 
000000006 00 08 FB 0002D CALLS #2, EDT$SINS_CHS : 
14 $0 bear gS : 
53 D 09 TSTL DIR : 0733 
o¢ 13 O003A BEQL 4$ : 
11 0003¢ BRB 3$ : 0736 


| 
| 
-TITLE EDTSCHMUNDEL EDTSCHMUNDEL - undelete 
\v04=000\ 
| 
| 


5 
| 


vibes ia EDTSSUNDL unde ++ ibcte = 93: 3: i Disk UMEMASTER CLD di. OSRCICHMUNDEL.. BLI; A a ofl 


000000006 00 99 FB 005 $: CALLS 40, fo Tsscs_ LEFT : 0737 
F F4 00045 3$: SOBGEQ : 

5 01 00 00048 4$: MOVL H, RO : 0739 
04 00048 RET : 

50 04 0004C 5$: CLRL = RO : 0740 
04 0004E RET : 


; Routine Size: 79 bytes, Routine Base: _EDTSCODE + 0000 


0741 1 
0742 1 !<BLF/PAGE> 
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00: 
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EDTSCHMUNDEL EDTSCHMUNDEL = undelete 1b-5e “19 VAX-11 Bliss-32 V 
1042000 EDTSSUNDL = undelete ety 7 99:3 DISKSVMSMASTER: cto 
> 174 0743 1 END ! of module EDTSCHMUND 

; if 0744 of module E EL 

: 176 0745 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 79 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

Pn) ae A Shao on? eee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 10 2 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


7 data bytes 


1 SRCSCHMUNDEL. BLI; ha 


6 
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DIGITAL EQUIPMENT CORPORATION: 
CONFID 
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